home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed1.d64 / missing number (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  307 lines
  1. 100 PRINT"[147]"
  2. 110 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  3. 120 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  4. 130 UD$="":UP$="                                      "
  5. 300 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,21
  6. 305 PRINT"[147]      A TPUG EDUCATIONAL PROGRAM
  7. 310 [153]"           FOR C64 COMPUTERS
  8. 315 PRINT"             GRADES K TO 1 ":GOSUB791
  9. 320 PRINT"                                        [146]";
  10. 325 PRINT"                                        [146]";
  11. 326 PRINT"                                        [146]";
  12. 327 PRINT"                                        [146]";
  13. 330 PRINT"            MISSING NUMBER              [146]";
  14. 335 PRINT"                                        [146]";
  15. 336 PRINT"                                        [146]";
  16. 337 PRINT"[159]                                        [146]";
  17. 340 PRINT"                                        [146]":GOSUB791:GOSUB760
  18. 345 PRINT"         INSTRUCTIONS?   Y/N
  19. 350 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]350
  20. 355 [139]R$[178]"Y"[167][141]400
  21. 360 [153]"LOAD  AND AWAY WE GO............":[141]791:[141]700
  22. 365 [153]"LOAD":[141]790:[137]1000
  23. 400 [151]53280,0:[151]53281,0:[151]53272,23:
  24. 405 [153]"LOAD             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT
  25. 407 PRINT"[153]    [201]NSTRUCTIONS TO BE READ TO THE          STUDENT.
  26. 408 [153]"    ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND
  27. 410 PRINT "[159]  [217]OU WILL SEE A LIST OF THE NUMBERS      FROM 1 TO 10.
  28. 415 [153] "  (null)HERE WILL BE A BLANK WHERE ONE         NUMBER IS MISSING.
  29. 425 PRINT "  [212]HE COMPUTER WANTS TO KNOW WHAT         NUMBER IS MISSING."
  30. 430 PRINT "  [215]HEN YOU FIGURE OUT WHICH NUMBER
  31. 432 [153] "  IS MISSING, TYPE IT INTO THE"
  32. 434 [153] "  COMPUTER AND PRESS (null)VAL(null)(null)(null)(null)WAIT."
  33. 436 [141]820
  34. 438 [153] "OPENLOAD  RIGHT$F YOU GET THE ANSWER RIGHT, YOU"
  35. 440 [153] "  WILL SEE A BIG SMILING FACE. "
  36. 442 [153] "  RIGHT$F YOU GET IT WRONG, YOU WILL           SEE A SAD FACE."
  37. 444 [153] "  (null)E DON'T WANT ANY SAD FACES,            DO WE?"
  38. 446 [153] "  RIGHT$F YOU GET THE ANSWER WRONG, YOU        CAN TRY AGAIN.
  39. 448 PRINT "  [212]HERE WILL BE 10 MISSING NUMBERS        FOR YOU TO GUESS."
  40. 495 GOSUB820:RETURN
  41. 699 :
  42. 700 REM <YES> SOUND
  43. 705 SS=54272:FORE=SS TOSS+28:POKEE,0:NEXT
  44. 710 POKE54296,15:POKE54277,42:POKE54278,250
  45. 715 POKE54276,23:POKE54273,23:POKE54272,191
  46. 720 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  47. 725 POKE54296,0:RETURN
  48. 729 :
  49. 730 REM <NO> SOUND
  50. 735 SS=54272:FORE=SS TOSS+28:POKEE,0:NEXT
  51. 740 POKE54296,15:POKE54277,18:POKE54278,242
  52. 745 POKE54276,33:POKE54273,4:POKE54272,48
  53. 750 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  54. 755 POKE54296,0:RETURN
  55. 759 :
  56. 760 REM <BLIP> SOUND
  57. 765 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT
  58. 770 POKE54296,6:POKE54277,42:POKE54278,250
  59. 775 POKE54276,23:POKE54273,23:POKE54272,191
  60. 780 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  61. 785 POKE54296,0:RETURN
  62. 789 :
  63. 790 FORTB=1TO600:NEXT:RETURN
  64. 791 FORTB=1TO1000:NEXT:RETURN
  65. 792 FORTB=1TO2000:NEXT:RETURN
  66. 793 FORTB=1TO3000:NEXT:RETURN
  67. 820 GOSUB791:GOSUB760
  68. 823 POKEUN,0:PRINTLEFT$(UD$,24);"[154] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146]"
  69. 825 GETUI$:IFUI$<>CHR$(32)THEN825
  70. 830 RETURN
  71. 835 GOSUB791:GOSUB760
  72. 837 POKEUN,0:PRINTLEFT$(UD$,24);"[154] PRESS SPACE BAR TO CONTINUE [146][159]"
  73. 840 GETUI$:IFUI$<>CHR$(32)THEN840
  74. 845 RETURN
  75. 899 :
  76. 1000 PRINT"[147]"UC$;:RESTORE:B=0:K=0:W=0
  77. 1010 POKE53280,0:POKE53281,0:POKE53272,21
  78. 1020 UP=0
  79. 1099 :
  80. 1100 PRINT"[150][147]     DO NOT PRESS  RETURN [146] KEY!":GOSUB730
  81. 1110 GOSUB793
  82. 1119 :
  83. 1200 A=RND(-TI)
  84. 1380 FORI=1TO10:FD=0
  85. 1400 PRINT"[147][159] WHAT'S THE MISSING NUMBERR?":GOSUB700
  86. 1410 PRINT" 0 1 [164] 3 4 5 6 7 8 9 10[155]":GOSUB760:GOSUB760
  87. 1420 GETR$:IFR$=""THEN1420
  88. 1425 IFR$="2"THENPRINT"[145][145][145] 0 1 [158]2 3 4 5 6 7 8 9 10 [155]"
  89. 1427 IFR$="2"THENGOSUB2300:GOSUB790:FD=0:GOTO1450
  90. 1430 IFFD>1THENW=W+1:PRINT"[145][145][145]":GOSUB3125
  91. 1440 GOSUB2100:GOTO1400
  92. 1449 :
  93. 1450 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  94. 1460 PRINT" 0 1 2 3 [164] 5 6 7 8 9 10":GOSUB760:GOSUB760
  95. 1470 GETR$:IFR$=""THEN1470
  96. 1475 IFR$="4"THENPRINT"[145][145][145] 0 1 2 3 [158]4 5 6 7 8 9 10 "
  97. 1477 IFR$="4"THENGOSUB2300:GOSUB790:FD=0:GOTO1500
  98. 1480 IFFD>1THENW=W+1:PRINT"[145][145][145]":GOSUB3175
  99. 1490 GOSUB2100:GOTO1450
  100. 1499 :
  101. 1500 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  102. 1510 PRINT" 0 1 2 [164] 4 5 6 7 8 9 10":GOSUB760:GOSUB760
  103. 1520 GETR$:IFR$=""THEN1520
  104. 1525 IFR$="3"THENPRINT"[145][145][145] 0 1 2 [158]3 4 5 6 7 8 9 10 "
  105. 1527 IFR$="3"THENGOSUB2300:GOSUB790:FD=0:GOSUB1550
  106. 1530 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3150
  107. 1540 GOSUB2100:GOTO 1500
  108. 1549 :
  109. 1550 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  110. 1560 PRINT" 0 1 2 3 4 [164] 6 7 8 9 10":GOSUB760:GOSUB760
  111. 1570 GETR$:IFR$=""THEN1570
  112. 1575 IFR$="5"THENPRINT"[145][145][145] 0 1 2 3 4 [158]5 6 7 8 9 10 "
  113. 1577 IFR$="5"THENGOSUB2300:GOSUB790:FD=0:GOTO1600
  114. 1580 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3200
  115. 1590 GOSUB2100:GOTO1550
  116. 1599 :
  117. 1600 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  118. 1610 PRINT" 0 1 2 3 4 5 6 [164] 8 9 10":GOSUB760:GOSUB760
  119. 1620 GETR$:IFR$=""THEN1620
  120. 1625 IFR$="7"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 [158]7 8 9 10 "
  121. 1627 IFR$="7"THENGOSUB2300:GOSUB790:FD=0:GOTO1650
  122. 1630 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3250
  123. 1640 GOSUB2100:GOTO1600
  124. 1649 :
  125. 1650 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  126. 1660 PRINT" 0 1 2 3 4 5 6 7 8 [164] 10":GOSUB760:GOSUB760
  127. 1670 GETR$:IFR$=""THEN1670
  128. 1675 IFR$="9"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 7 8 [158]9 10 "
  129. 1677 IFR$="9"THENGOSUB2300:GOSUB790:FD=0:GOTO1700
  130. 1680 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3300
  131. 1690 GOSUB2100:GOTO1650
  132. 1699 :
  133. 1700 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  134. 1710 PRINT" 0 [164] 2 3 4 5 6 7 8 9 10":GOSUB760:GOSUB760
  135. 1720 GETR$:IFR$=""THEN1720
  136. 1725 IFR$="1"THENPRINT"[145][145][145] 0 [158]1 2 3 4 5 6 7 8 9 10 "
  137. 1727 IFR$="1"THENGOSUB2300:GOSUB790:FD=0:GOTO1750
  138. 1730 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3100
  139. 1740 GOSUB2100:GOTO1700
  140. 1749 :
  141. 1750 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  142. 1760 PRINT" 0 1 2 3 4 5 6 7 [164] 9 10":GOSUB760:GOSUB760
  143. 1770 GETR$:IFR$=""THEN1770
  144. 1775 IFR$="8"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 7 [158]8 9 10  "
  145. 1777 IFR$="8"THENGOSUB2300:GOSUB790:FD=0:GOTO1800
  146. 1780 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3275
  147. 1790 GOSUB2100:GOTO1750
  148. 1799 :
  149. 1800 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  150. 1810 PRINT" 0 1 2 3 4 5 [164] 7 8 9 10":GOSUB760:GOSUB760
  151. 1820 GETR$:IFR$=""THEN1820
  152. 1825 IFR$="6"THENPRINT"[145][145][145] 0 1 2 3 4 5 [158]6 7 8 9 10 "
  153. 1827 IFR$="6"THENGOSUB2300:GOSUB790:FD=0:GOTO1850
  154. 1830 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3225
  155. 1840 GOSUB2100:GOTO1800
  156. 1849 :
  157. 1850 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  158. 1860 PRINT" 0 1 2 3 4 5 6 7 8 9 [164][164]":GOSUB760:GOSUB760
  159. 1870 GETR$:IFR$=""THEN1870
  160. 1875 IFR$="1"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 7 8 9 [158]10 "
  161. 1877 IFR$="1"THENGOSUB2300:GOSUB790:FD=0:GOTO1900
  162. 1880 IFFD>1THENPRINT" [145][145][145]":W=W+1:GOSUB3325
  163. 1890 GOSUB2100:GOTO1850
  164. 1899 :
  165. 1900 PRINT"[147][159] WHAT'S THE MISSING NUMBER?"
  166. 1910 PRINT" [164] 1 2 3 4 5 6 7 8 9 10":GOSUB760:GOSUB760
  167. 1920 GETR$:IFR$=""THEN1920
  168. 1925 IFR$="0"THENPRINT"[145][145][145][158]  0 1 2 3 4 5 6 7 8 9 10 "
  169. 1927 IFR$="0"THENGOSUB2300:GOSUB791:GOTO1950
  170. 1930 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3350
  171. 1940 GOSUB2100:GOTO1900
  172. 1950 GOTO3400
  173. 1999 :
  174. 2100 REM WRONG - NO
  175. 2105 POKE53280,10
  176. 2110 PRINT"    @@@@@
  177. 2115 [153]"   @@@ @@@
  178. 2120 PRINT"  @@     @@
  179. 2125 [153]" @@ (null)   (null) @@
  180. 2130 PRINT" @@  [215] [215]  @@
  181. 2135 [153]" (null)@       @RIGHT$
  182. 2140 PRINT" [194][194]   U   [194][200]
  183. 2145 [153]" MID$PEEK       PEEK(null)
  184. 2150 PRINT"  [194] [206][163][163][163][205] [194]
  185. 2155 [153]"  (       )
  186. 2160 PRINT"   [205]     [206]
  187. 2165 [153]"                  (null)   (null)
  188. 2170 PRINT"                   [202][198][203]
  189. 2175 UP[178]UP[171]1:[141]730:[141]790:[151]53280,0
  190. 2185 FD[178]FD[170]1:K[178]K[170]1:[142]
  191. 2199 :
  192. 2200 [145]A[170]1[141]3350,3100,3125,3150,3175,3200,3225,3250,3275,3300,3325
  193. 2210 [141]792:[141]760
  194. 2220 M[178]M[170]1:[142]
  195. 2299 :
  196. 2300 [143] SMILE - YES
  197. 2305 [151]53280,13
  198. 2310 [153]"PRINTONONONONON       @@@@@
  199. 2315 PRINT"      @@@ @@@
  200. 2320 [153]"     @@     @@
  201. 2325 PRINT"    @@ [206]   [205] @@
  202. 2330 [153]"    @@  COS LOG  @@
  203. 2335 PRINT"    [213]@       @[201]
  204. 2340 [153]"    CHR$PEEK   U   PEEKLEFT$
  205. 2345 PRINT"    [202][194] [165]   [167] [194][203]
  206. 2350 [153]"     PEEK FN   THEN PEEK
  207. 2355 PRINT"                ( [205]   [206] )
  208. 2360 [153]"                 (null) TAB(TAB(TAB( (null)
  209. 2365 PRINT"                  [205]   [206]
  210. 2370 [153]"                   MID$ASC(null)
  211. 2375 GOSUB700:GOSUB791:POKE53280,0:PRINT"[147]"
  212. 2380 RETURN
  213. 2399 :
  214. 2500 PRINT" ";:US$="0123456789H":UL=1
  215. 2510 IFA=10THENUL=2
  216. 2520 GOSUB35:RETURN
  217. 3000 REM LARGE FIGURES
  218. 3010 GOSUB850:PRINT"":RETURN
  219. 3100 PRINT"     [169] "
  220. 3105 PRINT"       "
  221. 3110 PRINT"       "
  222. 3115 PRINT"       "
  223. 3120 PRINT"        ":RETURN
  224. 3125 PRINT"    [169]  [223]"
  225. 3130 PRINT"        "
  226. 3135 PRINT"     [169] [146][169]"
  227. 3140 PRINT"    [169] [146][169]"
  228. 3145 PRINT"   [169]    [146]":RETURN
  229. 3150 PRINT"    [169] [223]"
  230. 3155 PRINT"       "
  231. 3160 PRINT"       "
  232. 3165 PRINT"       "
  233. 3170 PRINT"    [223] [146][169]":RETURN
  234. 3175 PRINT"     "
  235. 3180 PRINT"      "
  236. 3185 PRINT"        "
  237. 3190 PRINT"       "
  238. 3195 PRINT"       ":RETURN
  239. 3200 PRINT"       "
  240. 3205 PRINT"     "
  241. 3210 PRINT"    [223] [223]"
  242. 3215 PRINT"       "
  243. 3220 PRINT"    [223] [146][169]":RETURN
  244. 3225 PRINT"    [169] [223]"
  245. 3230 PRINT"     "
  246. 3235 PRINT"      [223]"
  247. 3240 PRINT"      "
  248. 3245 PRINT"    [223] [146][169]":RETURN
  249. 3250 PRINT"       "
  250. 3255 PRINT"       "
  251. 3260 PRINT"       "
  252. 3262 PRINT"       "
  253. 3270 PRINT"       ":RETURN
  254. 3275 PRINT"    [169] [223]"
  255. 3280 PRINT"    [223] [169]"
  256. 3285 PRINT"    [169] [223]"
  257. 3290 PRINT"      "
  258. 3295 PRINT"    [223] [146][169]":RETURN
  259. 3300 PRINT"    [169] [223]"
  260. 3305 PRINT"      "
  261. 3310 PRINT"    [223]  "
  262. 3315 PRINT"       "
  263. 3320 PRINT"    [223] [146][169]":RETURN
  264. 3325 PRINT"  [169] [169] [223]"
  265. 3330 PRINT"      "
  266. 3335 PRINT"      "
  267. 3340 PRINT"      "
  268. 3345 PRINT"     [146][223] [146][169]":RETURN
  269. 3350 PRINT"    [169] [223]"
  270. 3355 PRINT"      "
  271. 3360 PRINT"      "
  272. 3365 PRINT"      "
  273. 3370 PRINT"    [223] [146][169]":RETURN
  274. 3400 PRINT"[147][147]              SCORE  BOARD              [146]"
  275. 3405 IFK=0THENPRINT"[158]                EXCELLENT!              [146]"
  276. 3410 IFK=0THENGOSUB700:GOSUB790
  277. 3415 IFK=0THENPRINT"[153] YOU HAVE FOUND ALL THE MISSING NUMBERS!"
  278. 3420 IFK=0THENGOSUB792:GOSUB835:GOTO3500
  279. 3425 IFK=1THENPRINT"[158] YOU MADE 1 BLOOPER,":GOSUB791
  280. 3430 IFK>1THENPRINT"[158] YOU MADE"K"BLOOPERS.":GOSUB791
  281. 3435 IFW=1THENPRINT" YOU NEEDED 1 PROMPT."
  282. 3440 IFW>1THENPRINT" YOU NEEDED"W"PROMPTS."
  283. 3445 IFK=1THENPRINT" GOOD! NOW TRY TO GET ALL THE NUMBERS."
  284. 3450 IFK>1THENPRINT" DON'T GIVE UP.  TRY AGAIN!"
  285. 3490 GOSUB730:GOSUB792:GOSUB835
  286. 3499 :
  287. 3500 REM DECISION TIME
  288. 3505 PRINT"[147]  YOU HAVE A CHOICE:":GOSUB790:GOSUB760
  289. 3510 PRINT"  PRESS  P [146] TO PLAY AGAIN
  290. 3515 [153]"  PRESS  M WAIT TO RETURN TO THE DISK MENU
  291. 3520 GETR$:IFR$<>"[208]"ANDR$<>"[205]"ANDR$<>"P"ANDR$<>"M"THEN3520
  292. 3525 IFR$="P"THENRESTORE:GOTO100
  293. 3530 IFR$="[208]"THENRESTORE:GOTO100
  294. 3535 PRINT"[147]  RETURNING TO THE DISK MENU.
  295. 3540 [147]"MENU",8
  296. 3545 [138]
  297. 3550 [128]
  298. 3599 :
  299. 5000 [143] DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1982
  300. 5010 [143] PROJECT DIRECTOR: FRAMK WINTER
  301. 5020 [143] PROGRAM NAME: MISSING NUMBER
  302. 5030 [143] WRITTEN BY: MARTY DE JONGHE
  303. 5040 [143] REVISED BY: JENNIFER BRASCH"
  304. 5050 REM SHRUNK BY ED VANDERZEEUW 1989
  305. 5060 REM UPDATED BY BILL CUMBERLAND 1989         AND 1990
  306. 5100 REM WHC 90:11:28/92:07:11/93:03:26
  307.